Aminet 1

home *** CD-ROM | disk | FTP | other *** search

/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume90 / aplictns / xscheme2 / part06 < prev next >

Wrap

Internet Message Format | 1990-04-14 | 40.2 KB

Path: xanth!cs.odu.edu!Amiga-Request From: Amiga-Request@cs.odu.edu (Amiga Sources/Binaries Moderator) Newsgroups: comp.sources.amiga Subject: v90i144: XScheme 0.20 - an object-oriented scheme, Part06/07 Message-ID: <12214@xanth.cs.odu.edu> Date: 14 Apr 90 21:14:02 GMT Sender: tadguy@cs.odu.edu Reply-To: rusty@fe2o3.UUCP (Rusty Haddock) Lines: 2829 Approved: tadguy@cs.odu.edu (Tad Guy) X-Mail-Submissions-To: Amiga@cs.odu.edu X-Post-Discussions-To: comp.sys.amiga Submitted-by: rusty@fe2o3.UUCP (Rusty Haddock) Posting-number: Volume 90, Issue 144 Archive-name: applications/xscheme-0.20/part06 #!/bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 6 (of 7)." # Contents: Src/xsmath881.s # Wrapped by tadguy@xanth on Sat Apr 14 17:07:30 1990 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'Src/xsmath881.s' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Src/xsmath881.s'\" else echo shar: Extracting \"'Src/xsmath881.s'\" $36236 characters$ sed "s/^X//" >'Src/xsmath881.s' <<'END_OF_FILE' X;:ts=8 X far code X far data X mc68881 X public _xexactp X_xexactp: X link a5,#.2 X movem.l .3,-(sp) X fmovem.x .4,-(sp) X tst.l _xlargc X ble .5 X move.l _xlsp,a0 X tst.l (a0) X beq .8 X move.l _xlsp,a0 X btst.b #0,3(a0) X beq .9 X move.l #3,d0 X bra .10 X.9 X move.l _xlsp,a0 X move.l (a0),a1 X move.b (a1),d0 X ext.w d0 X ext.l d0 X.10 X cmp.l #3,d0 X beq .7 X.8 X move.l _xlsp,a0 X btst.b #0,3(a0) X beq .11 X move.l #3,d0 X bra .12 X.11 X move.l _xlsp,a0 X move.l (a0),a1 X move.b (a1),d0 X ext.w d0 X ext.l d0 X.12 X cmp.l #4,d0 X bne .6 X.7 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .13 X.6 X move.l _xlsp,a0 X move.l (a0),-(sp) X jsr _xlbadtype X add.w #4,sp X.13 X bra .14 X.5 X jsr _xltoofew X.14 X move.l d0,-4(a5) X tst.l _xlargc X beq .15 X jsr _xltoomany X.15 X move.l #0,d0 X.16 X fmovem.x (sp)+,.4 X movem.l (sp)+,.3 X unlk a5 X rts X.2 equ -4 X.3 reg d2/d3/a6 X.4 freg X public _xinexactp X_xinexactp: X link a5,#.17 X movem.l .18,-(sp) X fmovem.x .19,-(sp) X tst.l _xlargc X ble .20 X move.l _xlsp,a0 X tst.l (a0) X beq .23 X move.l _xlsp,a0 X btst.b #0,3(a0) X beq .24 X move.l #3,d0 X bra .25 X.24 X move.l _xlsp,a0 X move.l (a0),a1 X move.b (a1),d0 X ext.w d0 X ext.l d0 X.25 X cmp.l #3,d0 X beq .22 X.23 X move.l _xlsp,a0 X btst.b #0,3(a0) X beq .26 X move.l #3,d0 X bra .27 X.26 X move.l _xlsp,a0 X move.l (a0),a1 X move.b (a1),d0 X ext.w d0 X ext.l d0 X.27 X cmp.l #4,d0 X bne .21 X.22 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .28 X.21 X move.l _xlsp,a0 X move.l (a0),-(sp) X jsr _xlbadtype X add.w #4,sp X.28 X bra .29 X.20 X jsr _xltoofew X.29 X move.l d0,-4(a5) X tst.l _xlargc X beq .30 X jsr _xltoomany X.30 X move.l _true,d0 X.31 X fmovem.x (sp)+,.19 X movem.l (sp)+,.18 X unlk a5 X rts X.17 equ -4 X.18 reg d2/d3/a6 X.19 freg X public _xatan X_xatan: X link a5,#.32 X movem.l .33,-(sp) X fmovem.x .34,-(sp) X tst.l _xlargc X ble .35 X move.l _xlsp,a0 X tst.l (a0) X beq .38 X move.l _xlsp,a0 X btst.b #0,3(a0) X beq .39 X move.l #3,d0 X bra .40 X.39 X move.l _xlsp,a0 X move.l (a0),a1 X move.b (a1),d0 X ext.w d0 X ext.l d0 X.40 X cmp.l #3,d0 X beq .37 X.38 X move.l _xlsp,a0 X btst.b #0,3(a0) X beq .41 X move.l #3,d0 X bra .42 X.41 X move.l _xlsp,a0 X move.l (a0),a1 X move.b (a1),d0 X ext.w d0 X ext.l d0 X.42 X cmp.l #4,d0 X bne .36 X.37 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .43 X.36 X move.l _xlsp,a0 X move.l (a0),-(sp) X jsr _xlbadtype X add.w #4,sp X.43 X bra .44 X.35 X jsr _xltoofew X.44 X move.l d0,-4(a5) X tst.l _xlargc X ble .45 X tst.l _xlargc X ble .46 X move.l _xlsp,a0 X tst.l (a0) X beq .49 X move.l _xlsp,a0 X btst.b #0,3(a0) X beq .50 X move.l #3,d0 X bra .51 X.50 X move.l _xlsp,a0 X move.l (a0),a1 X move.b (a1),d0 X ext.w d0 X ext.l d0 X.51 X cmp.l #3,d0 X beq .48 X.49 X move.l _xlsp,a0 X btst.b #0,3(a0) X beq .52 X move.l #3,d0 X bra .53 X.52 X move.l _xlsp,a0 X move.l (a0),a1 X move.b (a1),d0 X ext.w d0 X ext.l d0 X.53 X cmp.l #4,d0 X bne .47 X.48 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .54 X.47 X move.l _xlsp,a0 X move.l (a0),-(sp) X jsr _xlbadtype X add.w #4,sp X.54 X bra .55 X.46 X jsr _xltoofew X.55 X move.l d0,-8(a5) X tst.l _xlargc X beq .56 X jsr _xltoomany X.56 X move.l -8(a5),-(sp) X jsr _toflotype X add.w #4,sp X fmove.d fp0,-(sp) X move.l -4(a5),-(sp) X jsr _toflotype X add.w #4,sp X fmove.d fp0,-(sp) X jsr _atan2 X lea 16(sp),sp X fmove.d fp0,-16(a5) X bra .57 X.45 X move.l -4(a5),-(sp) X jsr _toflotype X add.w #4,sp X fatan.x fp0 X fmove.d fp0,-16(a5) X.57 X fmove.d -16(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X.58 X fmovem.x (sp)+,.34 X movem.l (sp)+,.33 X unlk a5 X rts X.32 equ -16 X.33 reg d2/d3/a6 X.34 freg X public _xfloor X_xfloor: X link a5,#.59 X movem.l .60,-(sp) X fmovem.x .61,-(sp) X tst.l _xlargc X ble .62 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .63 X.62 X jsr _xltoofew X.63 X move.l d0,-4(a5) X tst.l _xlargc X beq .64 X jsr _xltoomany X.64 X tst.l -4(a5) X beq .65 X btst.b #0,-1(a5) X beq .66 X move.l #3,d0 X bra .67 X.66 X move.l -4(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.67 X cmp.l #3,d0 X bne .65 X move.l -4(a5),d0 X.68 X fmovem.x (sp)+,.61 X movem.l (sp)+,.60 X unlk a5 X rts X.65 X tst.l -4(a5) X beq .69 X btst.b #0,-1(a5) X beq .70 X move.l #3,d0 X bra .71 X.70 X move.l -4(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.71 X cmp.l #4,d0 X bne .69 X move.l -4(a5),a0 X fmove.d 2(a0),fp0 X fmove.d fp0,-(sp) X jsr _floor X add.w #8,sp X fintrz fp0 X fmove.l fp0,d0 X move.l d0,-(sp) X jsr _cvfixnum X add.w #4,sp X bra .68 X.69 X move.l -4(a5),-(sp) X jsr _xlbadtype X add.w #4,sp X bra .68 X.59 equ -4 X.60 reg d2/d3/a6 X.61 freg X public _xceiling X_xceiling: X link a5,#.72 X movem.l .73,-(sp) X fmovem.x .74,-(sp) X tst.l _xlargc X ble .75 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .76 X.75 X jsr _xltoofew X.76 X move.l d0,-4(a5) X tst.l _xlargc X beq .77 X jsr _xltoomany X.77 X tst.l -4(a5) X beq .78 X btst.b #0,-1(a5) X beq .79 X move.l #3,d0 X bra .80 X.79 X move.l -4(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.80 X cmp.l #3,d0 X bne .78 X move.l -4(a5),d0 X.81 X fmovem.x (sp)+,.74 X movem.l (sp)+,.73 X unlk a5 X rts X.78 X tst.l -4(a5) X beq .82 X btst.b #0,-1(a5) X beq .83 X move.l #3,d0 X bra .84 X.83 X move.l -4(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.84 X cmp.l #4,d0 X bne .82 X move.l -4(a5),a0 X fmove.d 2(a0),fp0 X fmove.d fp0,-(sp) X jsr _ceil X add.w #8,sp X fintrz fp0 X fmove.l fp0,d0 X move.l d0,-(sp) X jsr _cvfixnum X add.w #4,sp X bra .81 X.82 X move.l -4(a5),-(sp) X jsr _xlbadtype X add.w #4,sp X bra .81 X.72 equ -4 X.73 reg d2/d3/a6 X.74 freg X public _xround X_xround: X link a5,#.85 X movem.l .86,-(sp) X fmovem.x .87,-(sp) X tst.l _xlargc X ble .88 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .89 X.88 X jsr _xltoofew X.89 X move.l d0,-28(a5) X tst.l _xlargc X beq .90 X jsr _xltoomany X.90 X tst.l -28(a5) X beq .91 X btst.b #0,-25(a5) X beq .92 X move.l #3,d0 X bra .93 X.92 X move.l -28(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.93 X cmp.l #3,d0 X bne .91 X move.l -28(a5),d0 X.94 X fmovem.x (sp)+,.87 X movem.l (sp)+,.86 X unlk a5 X rts X.91 X tst.l -28(a5) X beq .95 X btst.b #0,-25(a5) X beq .96 X move.l #3,d0 X bra .97 X.96 X move.l -28(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.97 X cmp.l #4,d0 X bne .95 X move.l -28(a5),a0 X fmove.d 2(a0),fp0 X fmove.d fp0,-8(a5) X fmove.d -8(a5),fp0 X fmove.d fp0,-(sp) X jsr _floor X add.w #8,sp X fmove.d fp0,-16(a5) X fmove.d -8(a5),fp0 X fsub.d -16(a5),fp0 X fmove.d fp0,-24(a5) X fmove.d -24(a5),fp0 X fcmp.d #"$3fe0000000000000",fp0 X fbne .98 X fmove.d -16(a5),fp0 X fintrz fp0 X fmove.l fp0,d0 X and.l #1,d0 X cmp.l #1,d0 X bne .99 X fmove.d -16(a5),fp0 X fadd.d #"$3ff0000000000000",fp0 X fmove.d fp0,-16(a5) X.99 X fmove.d -16(a5),fp0 X fintrz fp0 X fmove.l fp0,d0 X move.l d0,-(sp) X jsr _cvfixnum X add.w #4,sp X bra .94 X.98 X fmove.d -24(a5),fp0 X fcmp.d #"$3fe0000000000000",fp0 X fbge .100 X fmove.d -16(a5),fp0 X fintrz fp0 X fmove.l fp0,d0 X move.l d0,-(sp) X jsr _cvfixnum X add.w #4,sp X bra .94 X.100 X fmove.d -16(a5),fp0 X fadd.d #"$3ff0000000000000",fp0 X fintrz fp0 X fmove.l fp0,d0 X move.l d0,-(sp) X jsr _cvfixnum X add.w #4,sp X bra .94 X.95 X move.l -28(a5),-(sp) X jsr _xlbadtype X add.w #4,sp X bra .94 X.85 equ -28 X.86 reg d2/d3/a6 X.87 freg X public _xtruncate X_xtruncate: X link a5,#.101 X movem.l .102,-(sp) X fmovem.x .103,-(sp) X tst.l _xlargc X ble .104 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .105 X.104 X jsr _xltoofew X.105 X move.l d0,-4(a5) X tst.l _xlargc X beq .106 X jsr _xltoomany X.106 X tst.l -4(a5) X beq .107 X btst.b #0,-1(a5) X beq .108 X move.l #3,d0 X bra .109 X.108 X move.l -4(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.109 X cmp.l #3,d0 X bne .107 X move.l -4(a5),d0 X.110 X fmovem.x (sp)+,.103 X movem.l (sp)+,.102 X unlk a5 X rts X.107 X tst.l -4(a5) X beq .111 X btst.b #0,-1(a5) X beq .112 X move.l #3,d0 X bra .113 X.112 X move.l -4(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.113 X cmp.l #4,d0 X bne .111 X move.l -4(a5),a0 X fmove.d 2(a0),fp0 X fintrz fp0 X fmove.l fp0,d0 X move.l d0,-(sp) X jsr _cvfixnum X add.w #4,sp X bra .110 X.111 X move.l -4(a5),-(sp) X jsr _xlbadtype X add.w #4,sp X bra .110 X.101 equ -4 X.102 reg d2/d3/a6 X.103 freg X public _xadd X_xadd: X link a5,#.114 X movem.l .115,-(sp) X fmovem.x .116,-(sp) X tst.l _xlargc X bgt .117 X clr.l -(sp) X jsr _cvfixnum X add.w #4,sp X.118 X fmovem.x (sp)+,.116 X movem.l (sp)+,.115 X unlk a5 X rts X.117 X pea 43 X jsr _binary X add.w #4,sp X bra .118 X.114 equ 0 X.115 reg d2/d3/a6 X.116 freg X public _xmul X_xmul: X link a5,#.119 X movem.l .120,-(sp) X fmovem.x .121,-(sp) X tst.l _xlargc X bgt .122 X pea 1 X jsr _cvfixnum X add.w #4,sp X.123 X fmovem.x (sp)+,.121 X movem.l (sp)+,.120 X unlk a5 X rts X.122 X pea 42 X jsr _binary X add.w #4,sp X bra .123 X.119 equ 0 X.120 reg d2/d3/a6 X.121 freg X public _xsub X_xsub: X link a5,#.124 X movem.l .125,-(sp) X fmovem.x .126,-(sp) X pea 45 X jsr _binary X add.w #4,sp X.127 X fmovem.x (sp)+,.126 X movem.l (sp)+,.125 X unlk a5 X rts X.124 equ 0 X.125 reg d2/d3/a6 X.126 freg X public _xdiv X_xdiv: X link a5,#.128 X movem.l .129,-(sp) X fmovem.x .130,-(sp) X pea 47 X jsr _binary X add.w #4,sp X.131 X fmovem.x (sp)+,.130 X movem.l (sp)+,.129 X unlk a5 X rts X.128 equ 0 X.129 reg d2/d3/a6 X.130 freg X public _xquo X_xquo: X link a5,#.132 X movem.l .133,-(sp) X fmovem.x .134,-(sp) X pea 81 X jsr _binary X add.w #4,sp X.135 X fmovem.x (sp)+,.134 X movem.l (sp)+,.133 X unlk a5 X rts X.132 equ 0 X.133 reg d2/d3/a6 X.134 freg X public _xrem X_xrem: X link a5,#.136 X movem.l .137,-(sp) X fmovem.x .138,-(sp) X pea 82 X jsr _binary X add.w #4,sp X.139 X fmovem.x (sp)+,.138 X movem.l (sp)+,.137 X unlk a5 X rts X.136 equ 0 X.137 reg d2/d3/a6 X.138 freg X public _xmin X_xmin: X link a5,#.140 X movem.l .141,-(sp) X fmovem.x .142,-(sp) X pea 109 X jsr _binary X add.w #4,sp X.143 X fmovem.x (sp)+,.142 X movem.l (sp)+,.141 X unlk a5 X rts X.140 equ 0 X.141 reg d2/d3/a6 X.142 freg X public _xmax X_xmax: X link a5,#.144 X movem.l .145,-(sp) X fmovem.x .146,-(sp) X pea 77 X jsr _binary X add.w #4,sp X.147 X fmovem.x (sp)+,.146 X movem.l (sp)+,.145 X unlk a5 X rts X.144 equ 0 X.145 reg d2/d3/a6 X.146 freg X public _xexpt X_xexpt: X link a5,#.148 X movem.l .149,-(sp) X fmovem.x .150,-(sp) X pea 69 X jsr _binary X add.w #4,sp X.151 X fmovem.x (sp)+,.150 X movem.l (sp)+,.149 X unlk a5 X rts X.148 equ 0 X.149 reg d2/d3/a6 X.150 freg X public _xlogand X_xlogand: X link a5,#.152 X movem.l .153,-(sp) X fmovem.x .154,-(sp) X pea 38 X jsr _binary X add.w #4,sp X.155 X fmovem.x (sp)+,.154 X movem.l (sp)+,.153 X unlk a5 X rts X.152 equ 0 X.153 reg d2/d3/a6 X.154 freg X public _xlogior X_xlogior: X link a5,#.156 X movem.l .157,-(sp) X fmovem.x .158,-(sp) X pea 124 X jsr _binary X add.w #4,sp X.159 X fmovem.x (sp)+,.158 X movem.l (sp)+,.157 X unlk a5 X rts X.156 equ 0 X.157 reg d2/d3/a6 X.158 freg X public _xlogxor X_xlogxor: X link a5,#.160 X movem.l .161,-(sp) X fmovem.x .162,-(sp) X pea 94 X jsr _binary X add.w #4,sp X.163 X fmovem.x (sp)+,.162 X movem.l (sp)+,.161 X unlk a5 X rts X.160 equ 0 X.161 reg d2/d3/a6 X.162 freg X_binary: X link a5,#.164 X movem.l .165,-(sp) X fmovem.x .166,-(sp) X tst.l _xlargc X ble .167 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .168 X.167 X jsr _xltoofew X.168 X move.l d0,-28(a5) X tst.l -28(a5) X beq .169 X btst.b #0,-25(a5) X beq .170 X move.l #3,d0 X bra .171 X.170 X move.l -28(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.171 X cmp.l #3,d0 X bne .169 X btst.b #0,-25(a5) X beq .172 X move.l -28(a5),d0 X asr.l #1,d0 X bra .173 X.172 X move.l -28(a5),a0 X move.l 2(a0),d0 X.173 X move.l d0,-4(a5) X move.l #73,-32(a5) X bra .174 X.169 X tst.l -28(a5) X beq .175 X btst.b #0,-25(a5) X beq .176 X move.l #3,d0 X bra .177 X.176 X move.l -28(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.177 X cmp.l #4,d0 X bne .175 X move.l -28(a5),a0 X fmove.d 2(a0),fp0 X fmove.d fp0,-16(a5) X move.l #70,-32(a5) X bra .178 X.175 X move.l -28(a5),-(sp) X jsr _xlbadtype X add.w #4,sp X.178 X.174 X tst.l _xlargc X bgt .179 X move.l 8(a5),d0 X bra .180 X.182 X move.l -32(a5),d0 X bra .183 X.185 X neg.l -4(a5) X bra .184 X.186 X fneg.d -16(a5),fp0 X fmove.d fp0,-16(a5) X bra .184 X.183 X sub.l #70,d0 X beq .186 X sub.l #3,d0 X beq .185 X.184 X bra .181 X.187 X move.l -32(a5),d0 X bra .188 X.190 X move.l -4(a5),-(sp) X jsr _checkizero X add.w #4,sp X cmp.l #1,-4(a5) X beq .191 X fmove.d #"$3ff0000000000000",fp0 X fdiv.l -4(a5),fp0 X fmove.d fp0,-16(a5) X move.l #70,-32(a5) X.191 X bra .189 X.192 X fmove.d -16(a5),fp0 X fmove.d fp0,-(sp) X jsr _checkfzero X add.w #8,sp X fmove.d #"$3ff0000000000000",fp0 X fdiv.d -16(a5),fp0 X fmove.d fp0,-16(a5) X bra .189 X.188 X sub.l #70,d0 X beq .192 X sub.l #3,d0 X beq .190 X.189 X bra .181 X.180 X sub.l #45,d0 X beq .182 X sub.l #2,d0 X beq .187 X.181 X.179 X.193 X tst.l _xlargc X ble .194 X tst.l _xlargc X ble .195 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .196 X.195 X jsr _xltoofew X.196 X move.l d0,-28(a5) X tst.l -28(a5) X beq .197 X btst.b #0,-25(a5) X beq .198 X move.l #3,d0 X bra .199 X.198 X move.l -28(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.199 X cmp.l #3,d0 X bne .197 X move.l -32(a5),d0 X bra .200 X.202 X btst.b #0,-25(a5) X beq .203 X move.l -28(a5),d0 X asr.l #1,d0 X bra .204 X.203 X move.l -28(a5),a0 X move.l 2(a0),d0 X.204 X move.l d0,-8(a5) X bra .201 X.205 X btst.b #0,-25(a5) X beq .206 X move.l -28(a5),d0 X asr.l #1,d0 X bra .207 X.206 X move.l -28(a5),a0 X move.l 2(a0),d0 X.207 X fmove.l d0,fp0 X fmove.d fp0,-24(a5) X bra .201 X.200 X sub.l #70,d0 X beq .205 X sub.l #3,d0 X beq .202 X.201 X bra .208 X.197 X tst.l -28(a5) X beq .209 X btst.b #0,-25(a5) X beq .210 X move.l #3,d0 X bra .211 X.210 X move.l -28(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.211 X cmp.l #4,d0 X bne .209 X move.l -32(a5),d0 X bra .212 X.214 X fmove.l -4(a5),fp0 X fmove.d fp0,-16(a5) X move.l -28(a5),a0 X fmove.d 2(a0),fp0 X fmove.d fp0,-24(a5) X move.l #70,-32(a5) X bra .213 X.215 X move.l -28(a5),a0 X fmove.d 2(a0),fp0 X fmove.d fp0,-24(a5) X bra .213 X.212 X sub.l #70,d0 X beq .215 X sub.l #3,d0 X beq .214 X.213 X bra .216 X.209 X move.l -28(a5),-(sp) X jsr _xlbadtype X add.w #4,sp X.216 X.208 X move.l -32(a5),d0 X bra .217 X.219 X move.l 8(a5),d0 X bra .220 X.222 X move.l -8(a5),d0 X add.l d0,-4(a5) X bra .221 X.223 X move.l -8(a5),d0 X sub.l d0,-4(a5) X bra .221 X.224 X move.l -8(a5),d1 X move.l -4(a5),d0 X jsr .mulu# X move.l d0,-4(a5) X bra .221 X.225 X move.l -8(a5),-(sp) X jsr _checkizero X add.w #4,sp X move.l -8(a5),d1 X move.l -4(a5),d0 X jsr .mods# X bne .226 X move.l -8(a5),d1 X move.l -4(a5),d0 X jsr .divs# X move.l d0,-4(a5) X bra .227 X.226 X fmove.l -4(a5),fp0 X fmove.d fp0,-16(a5) X fmove.l -8(a5),fp0 X fmove.d fp0,-24(a5) X fmove.d -16(a5),fp0 X fdiv.d -24(a5),fp0 X fmove.d fp0,-16(a5) X move.l #70,-32(a5) X.227 X bra .221 X.228 X move.l -8(a5),-(sp) X jsr _checkizero X add.w #4,sp X move.l -8(a5),d1 X move.l -4(a5),d0 X jsr .divs# X move.l d0,-4(a5) X bra .221 X.229 X move.l -8(a5),-(sp) X jsr _checkizero X add.w #4,sp X move.l -8(a5),d1 X move.l -4(a5),d0 X jsr .mods# X move.l d0,-4(a5) X bra .221 X.230 X move.l -8(a5),d0 X cmp.l -4(a5),d0 X ble .231 X move.l -8(a5),-4(a5) X.231 X bra .221 X.232 X move.l -8(a5),d0 X cmp.l -4(a5),d0 X bge .233 X move.l -8(a5),-4(a5) X.233 X bra .221 X.234 X fmove.l -8(a5),fp0 X fmove.d fp0,-(sp) X fmove.l -4(a5),fp0 X fmove.d fp0,-(sp) X jsr _pow X lea 16(sp),sp X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X.235 X fmovem.x (sp)+,.166 X movem.l (sp)+,.165 X unlk a5 X rts X.236 X move.l -8(a5),d0 X and.l d0,-4(a5) X bra .221 X.237 X move.l -8(a5),d0 X or.l d0,-4(a5) X bra .221 X.238 X move.l -8(a5),d0 X eor.l d0,-4(a5) X bra .221 X.239 X jsr _badiop X bra .221 X.240 X.220 X sub.l #38,d0 X beq .236 X sub.l #4,d0 X beq .224 X sub.l #1,d0 X beq .222 X sub.l #2,d0 X beq .223 X sub.l #2,d0 X beq .225 X sub.l #22,d0 X beq .234 X sub.l #8,d0 X beq .230 X sub.l #4,d0 X beq .228 X sub.l #1,d0 X beq .229 X sub.l #12,d0 X beq .238 X sub.l #15,d0 X beq .232 X sub.l #15,d0 X beq .237 X bra .239 X.221 X bra .218 X.242 X move.l 8(a5),d0 X bra .243 X.245 X fmove.d -16(a5),fp0 X fadd.d -24(a5),fp0 X fmove.d fp0,-16(a5) X bra .244 X.246 X fmove.d -16(a5),fp0 X fsub.d -24(a5),fp0 X fmove.d fp0,-16(a5) X bra .244 X.247 X fmove.d -16(a5),fp0 X fmul.d -24(a5),fp0 X fmove.d fp0,-16(a5) X bra .244 X.248 X fmove.d -24(a5),fp0 X fmove.d fp0,-(sp) X jsr _checkfzero X add.w #8,sp X fmove.d -16(a5),fp0 X fdiv.d -24(a5),fp0 X fmove.d fp0,-16(a5) X bra .244 X.249 X fmove.d -24(a5),fp0 X fcmp.d -16(a5),fp0 X fble .250 X fmove.d -24(a5),fp0 X fmove.d fp0,-16(a5) X.250 X bra .244 X.251 X fmove.d -24(a5),fp0 X fcmp.d -16(a5),fp0 X fbge .252 X fmove.d -24(a5),fp0 X fmove.d fp0,-16(a5) X.252 X bra .244 X.253 X fmove.d -24(a5),fp0 X fmove.d fp0,-(sp) X fmove.d -16(a5),fp0 X fmove.d fp0,-(sp) X jsr _pow X lea 16(sp),sp X fmove.d fp0,-16(a5) X bra .244 X.254 X jsr _badfop X bra .244 X.255 X.243 X sub.l #42,d0 X beq .247 X sub.l #1,d0 X beq .245 X sub.l #2,d0 X beq .246 X sub.l #2,d0 X beq .248 X sub.l #22,d0 X beq .253 X sub.l #8,d0 X beq .249 X sub.l #32,d0 X beq .251 X bra .254 X.244 X bra .218 X.217 X sub.l #70,d0 X beq .242 X sub.l #3,d0 X beq .219 X.218 X bra .193 X.194 X move.l -32(a5),d0 X bra .257 X.259 X move.l -4(a5),-(sp) X jsr _cvfixnum X add.w #4,sp X bra .235 X.260 X fmove.d -16(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X bra .235 X.257 X sub.l #70,d0 X beq .260 X sub.l #3,d0 X beq .259 X.258 X bra .235 X.164 equ -32 X.165 reg d2/d3/a6 X.166 freg X public _xlognot X_xlognot: X link a5,#.261 X movem.l .262,-(sp) X fmovem.x .263,-(sp) X pea 126 X jsr _unary X add.w #4,sp X.264 X fmovem.x (sp)+,.263 X movem.l (sp)+,.262 X unlk a5 X rts X.261 equ 0 X.262 reg d2/d3/a6 X.263 freg X public _xabs X_xabs: X link a5,#.265 X movem.l .266,-(sp) X fmovem.x .267,-(sp) X pea 65 X jsr _unary X add.w #4,sp X.268 X fmovem.x (sp)+,.267 X movem.l (sp)+,.266 X unlk a5 X rts X.265 equ 0 X.266 reg d2/d3/a6 X.267 freg X public _xadd1 X_xadd1: X link a5,#.269 X movem.l .270,-(sp) X fmovem.x .271,-(sp) X pea 43 X jsr _unary X add.w #4,sp X.272 X fmovem.x (sp)+,.271 X movem.l (sp)+,.270 X unlk a5 X rts X.269 equ 0 X.270 reg d2/d3/a6 X.271 freg X public _xsub1 X_xsub1: X link a5,#.273 X movem.l .274,-(sp) X fmovem.x .275,-(sp) X pea 45 X jsr _unary X add.w #4,sp X.276 X fmovem.x (sp)+,.275 X movem.l (sp)+,.274 X unlk a5 X rts X.273 equ 0 X.274 reg d2/d3/a6 X.275 freg X public _xsin X_xsin: X link a5,#.277 X movem.l .278,-(sp) X fmovem.x .279,-(sp) X pea 83 X jsr _unary X add.w #4,sp X.280 X fmovem.x (sp)+,.279 X movem.l (sp)+,.278 X unlk a5 X rts X.277 equ 0 X.278 reg d2/d3/a6 X.279 freg X public _xcos X_xcos: X link a5,#.281 X movem.l .282,-(sp) X fmovem.x .283,-(sp) X pea 67 X jsr _unary X add.w #4,sp X.284 X fmovem.x (sp)+,.283 X movem.l (sp)+,.282 X unlk a5 X rts X.281 equ 0 X.282 reg d2/d3/a6 X.283 freg X public _xtan X_xtan: X link a5,#.285 X movem.l .286,-(sp) X fmovem.x .287,-(sp) X pea 84 X jsr _unary X add.w #4,sp X.288 X fmovem.x (sp)+,.287 X movem.l (sp)+,.286 X unlk a5 X rts X.285 equ 0 X.286 reg d2/d3/a6 X.287 freg X public _xasin X_xasin: X link a5,#.289 X movem.l .290,-(sp) X fmovem.x .291,-(sp) X pea 115 X jsr _unary X add.w #4,sp X.292 X fmovem.x (sp)+,.291 X movem.l (sp)+,.290 X unlk a5 X rts X.289 equ 0 X.290 reg d2/d3/a6 X.291 freg X public _xacos X_xacos: X link a5,#.293 X movem.l .294,-(sp) X fmovem.x .295,-(sp) X pea 99 X jsr _unary X add.w #4,sp X.296 X fmovem.x (sp)+,.295 X movem.l (sp)+,.294 X unlk a5 X rts X.293 equ 0 X.294 reg d2/d3/a6 X.295 freg X public _xxexp X_xxexp: X link a5,#.297 X movem.l .298,-(sp) X fmovem.x .299,-(sp) X pea 69 X jsr _unary X add.w #4,sp X.300 X fmovem.x (sp)+,.299 X movem.l (sp)+,.298 X unlk a5 X rts X.297 equ 0 X.298 reg d2/d3/a6 X.299 freg X public _xsqrt X_xsqrt: X link a5,#.301 X movem.l .302,-(sp) X fmovem.x .303,-(sp) X pea 82 X jsr _unary X add.w #4,sp X.304 X fmovem.x (sp)+,.303 X movem.l (sp)+,.302 X unlk a5 X rts X.301 equ 0 X.302 reg d2/d3/a6 X.303 freg X public _xxlog X_xxlog: X link a5,#.305 X movem.l .306,-(sp) X fmovem.x .307,-(sp) X pea 76 X jsr _unary X add.w #4,sp X.308 X fmovem.x (sp)+,.307 X movem.l (sp)+,.306 X unlk a5 X rts X.305 equ 0 X.306 reg d2/d3/a6 X.307 freg X public _xrandom X_xrandom: X link a5,#.309 X movem.l .310,-(sp) X fmovem.x .311,-(sp) X pea 63 X jsr _unary X add.w #4,sp X.312 X fmovem.x (sp)+,.311 X movem.l (sp)+,.310 X unlk a5 X rts X.309 equ 0 X.310 reg d2/d3/a6 X.311 freg X_unary: X link a5,#.313 X movem.l .314,-(sp) X fmovem.x .315,-(sp) X tst.l _xlargc X ble .316 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .317 X.316 X jsr _xltoofew X.317 X move.l d0,-16(a5) X tst.l _xlargc X beq .318 X jsr _xltoomany X.318 X tst.l -16(a5) X beq .319 X btst.b #0,-13(a5) X beq .320 X move.l #3,d0 X bra .321 X.320 X move.l -16(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.321 X cmp.l #3,d0 X bne .319 X btst.b #0,-13(a5) X beq .322 X move.l -16(a5),d0 X asr.l #1,d0 X bra .323 X.322 X move.l -16(a5),a0 X move.l 2(a0),d0 X.323 X move.l d0,-12(a5) X move.l 8(a5),d0 X bra .324 X.326 X not.l -12(a5) X bra .325 X.327 X tst.l -12(a5) X bge .328 X move.l -12(a5),d0 X neg.l d0 X bra .329 X.328 X move.l -12(a5),d0 X.329 X move.l d0,-12(a5) X bra .325 X.330 X add.l #1,-12(a5) X bra .325 X.331 X sub.l #1,-12(a5) X bra .325 X.332 X fsin.l -12(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X.333 X fmovem.x (sp)+,.315 X movem.l (sp)+,.314 X unlk a5 X rts X.334 X fcos.l -12(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X bra .333 X.335 X ftan.l -12(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X bra .333 X.336 X fasin.l -12(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X bra .333 X.337 X facos.l -12(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X bra .333 X.338 X fatan.l -12(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X bra .333 X.339 X fetox.l -12(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X bra .333 X.340 X flogn.l -12(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X bra .333 X.341 X move.l -12(a5),-(sp) X jsr _checkineg X add.w #4,sp X fsqrt.l -12(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X bra .333 X.342 X move.l -12(a5),-(sp) X jsr _osrand X add.w #4,sp X move.l d0,-12(a5) X bra .325 X.343 X jsr _badiop X bra .325 X.344 X.324 X sub.l #43,d0 X beq .330 X sub.l #2,d0 X beq .331 X sub.l #18,d0 X beq .342 X sub.l #2,d0 X beq .327 X sub.l #2,d0 X beq .334 X sub.l #2,d0 X beq .339 X sub.l #7,d0 X beq .340 X sub.l #6,d0 X beq .341 X sub.l #1,d0 X beq .332 X sub.l #1,d0 X beq .335 X sub.l #15,d0 X beq .337 X sub.l #16,d0 X beq .336 X sub.l #1,d0 X beq .338 X sub.l #10,d0 X beq .326 X bra .343 X.325 X move.l -12(a5),-(sp) X jsr _cvfixnum X add.w #4,sp X bra .333 X.319 X tst.l -16(a5) X beq .346 X btst.b #0,-13(a5) X beq .347 X move.l #3,d0 X bra .348 X.347 X move.l -16(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.348 X cmp.l #4,d0 X bne .346 X move.l -16(a5),a0 X fmove.d 2(a0),fp0 X fmove.d fp0,-8(a5) X move.l 8(a5),d0 X bra .349 X.351 X fmove.d -8(a5),fp0 X fbge .352 X fneg.d -8(a5),fp0 X bra .353 X.352 X fmove.d -8(a5),fp0 X.353 X fmove.d fp0,-8(a5) X bra .350 X.354 X fmove.d -8(a5),fp0 X fadd.d #"$3ff0000000000000",fp0 X fmove.d fp0,-8(a5) X bra .350 X.355 X fmove.d -8(a5),fp0 X fsub.d #"$3ff0000000000000",fp0 X fmove.d fp0,-8(a5) X bra .350 X.356 X fmove.d -8(a5),fp0 X fsin.x fp0 X fmove.d fp0,-8(a5) X bra .350 X.357 X fmove.d -8(a5),fp0 X fcos.x fp0 X fmove.d fp0,-8(a5) X bra .350 X.358 X fmove.d -8(a5),fp0 X ftan.x fp0 X fmove.d fp0,-8(a5) X bra .350 X.359 X fmove.d -8(a5),fp0 X fasin.x fp0 X fmove.d fp0,-8(a5) X bra .350 X.360 X fmove.d -8(a5),fp0 X facos.x fp0 X fmove.d fp0,-8(a5) X bra .350 X.361 X fmove.d -8(a5),fp0 X fatan.x fp0 X fmove.d fp0,-8(a5) X bra .350 X.362 X fmove.d -8(a5),fp0 X fetox.x fp0 X fmove.d fp0,-8(a5) X bra .350 X.363 X fmove.d -8(a5),fp0 X flogn.x fp0 X fmove.d fp0,-8(a5) X bra .350 X.364 X fmove.d -8(a5),fp0 X fmove.d fp0,-(sp) X jsr _checkfneg X add.w #8,sp X fmove.d -8(a5),fp0 X fsqrt.x fp0 X fmove.d fp0,-8(a5) X bra .350 X.365 X jsr _badfop X bra .350 X.366 X.349 X sub.l #43,d0 X beq .354 X sub.l #2,d0 X beq .355 X sub.l #20,d0 X beq .351 X sub.l #2,d0 X beq .357 X sub.l #2,d0 X beq .362 X sub.l #7,d0 X beq .363 X sub.l #6,d0 X beq .364 X sub.l #1,d0 X beq .356 X sub.l #1,d0 X beq .358 X sub.l #15,d0 X beq .360 X sub.l #16,d0 X beq .359 X sub.l #1,d0 X beq .361 X bra .365 X.350 X fmove.d -8(a5),fp0 X fmove.d fp0,-(sp) X jsr _cvflonum X add.w #8,sp X bra .333 X.346 X move.l -16(a5),-(sp) X jsr _xlbadtype X add.w #4,sp X bra .333 X.313 equ -16 X.314 reg d2/d3/a6 X.315 freg X public _xgcd X_xgcd: X link a5,#.368 X movem.l .369,-(sp) X fmovem.x .370,-(sp) X tst.l _xlargc X bgt .371 X clr.l -(sp) X jsr _cvfixnum X add.w #4,sp X.372 X fmovem.x (sp)+,.370 X movem.l (sp)+,.369 X unlk a5 X rts X.371 X tst.l _xlargc X ble .373 X move.l _xlsp,a0 X tst.l (a0) X beq .374 X move.l _xlsp,a0 X btst.b #0,3(a0) X beq .375 X move.l #3,d0 X bra .376 X.375 X move.l _xlsp,a0 X move.l (a0),a1 X move.b (a1),d0 X ext.w d0 X ext.l d0 X.376 X cmp.l #3,d0 X bne .374 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .377 X.374 X move.l _xlsp,a0 X move.l (a0),-(sp) X jsr _xlbadtype X add.w #4,sp X.377 X bra .378 X.373 X jsr _xltoofew X.378 X move.l d0,-16(a5) X btst.b #0,-13(a5) X beq .379 X move.l -16(a5),d0 X asr.l #1,d0 X bra .380 X.379 X move.l -16(a5),a0 X move.l 2(a0),d0 X.380 X move.l d0,-8(a5) X tst.l -8(a5) X bge .381 X neg.l -8(a5) X.381 X.382 X tst.l _xlargc X ble .383 X tst.l _xlargc X ble .384 X move.l _xlsp,a0 X tst.l (a0) X beq .385 X move.l _xlsp,a0 X btst.b #0,3(a0) X beq .386 X move.l #3,d0 X bra .387 X.386 X move.l _xlsp,a0 X move.l (a0),a1 X move.b (a1),d0 X ext.w d0 X ext.l d0 X.387 X cmp.l #3,d0 X bne .385 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .388 X.385 X move.l _xlsp,a0 X move.l (a0),-(sp) X jsr _xlbadtype X add.w #4,sp X.388 X bra .389 X.384 X jsr _xltoofew X.389 X move.l d0,-16(a5) X btst.b #0,-13(a5) X beq .390 X move.l -16(a5),d0 X asr.l #1,d0 X bra .391 X.390 X move.l -16(a5),a0 X move.l 2(a0),d0 X.391 X move.l d0,-4(a5) X tst.l -4(a5) X bge .392 X neg.l -4(a5) X.392 X.395 X move.l -8(a5),d1 X move.l -4(a5),d0 X jsr .mods# X move.l d0,-12(a5) X tst.l -12(a5) X beq .394 X move.l -8(a5),-4(a5) X move.l -12(a5),-8(a5) X.393 X bra .395 X.394 X bra .382 X.383 X move.l -8(a5),-(sp) X jsr _cvfixnum X add.w #4,sp X bra .372 X.368 equ -16 X.369 reg d2/d3/a6 X.370 freg X public _xnegativep X_xnegativep: X link a5,#.396 X movem.l .397,-(sp) X fmovem.x .398,-(sp) X pea 45 X jsr _predicate X add.w #4,sp X.399 X fmovem.x (sp)+,.398 X movem.l (sp)+,.397 X unlk a5 X rts X.396 equ 0 X.397 reg d2/d3/a6 X.398 freg X public _xzerop X_xzerop: X link a5,#.400 X movem.l .401,-(sp) X fmovem.x .402,-(sp) X pea 90 X jsr _predicate X add.w #4,sp X.403 X fmovem.x (sp)+,.402 X movem.l (sp)+,.401 X unlk a5 X rts X.400 equ 0 X.401 reg d2/d3/a6 X.402 freg X public _xpositivep X_xpositivep: X link a5,#.404 X movem.l .405,-(sp) X fmovem.x .406,-(sp) X pea 43 X jsr _predicate X add.w #4,sp X.407 X fmovem.x (sp)+,.406 X movem.l (sp)+,.405 X unlk a5 X rts X.404 equ 0 X.405 reg d2/d3/a6 X.406 freg X public _xevenp X_xevenp: X link a5,#.408 X movem.l .409,-(sp) X fmovem.x .410,-(sp) X pea 69 X jsr _predicate X add.w #4,sp X.411 X fmovem.x (sp)+,.410 X movem.l (sp)+,.409 X unlk a5 X rts X.408 equ 0 X.409 reg d2/d3/a6 X.410 freg X public _xoddp X_xoddp: X link a5,#.412 X movem.l .413,-(sp) X fmovem.x .414,-(sp) X pea 79 X jsr _predicate X add.w #4,sp X.415 X fmovem.x (sp)+,.414 X movem.l (sp)+,.413 X unlk a5 X rts X.412 equ 0 X.413 reg d2/d3/a6 X.414 freg X_predicate: X link a5,#.416 X movem.l .417,-(sp) X fmovem.x .418,-(sp) X tst.l _xlargc X ble .419 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .420 X.419 X jsr _xltoofew X.420 X move.l d0,-16(a5) X tst.l _xlargc X beq .421 X jsr _xltoomany X.421 X tst.l -16(a5) X beq .422 X btst.b #0,-13(a5) X beq .423 X move.l #3,d0 X bra .424 X.423 X move.l -16(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.424 X cmp.l #3,d0 X bne .422 X btst.b #0,-13(a5) X beq .425 X move.l -16(a5),d0 X asr.l #1,d0 X bra .426 X.425 X move.l -16(a5),a0 X move.l 2(a0),d0 X.426 X move.l d0,-12(a5) X move.l 8(a5),d0 X bra .427 X.429 X cmp.l #0,-12(a5) X slt d0 X and.l #1,d0 X move.l d0,-12(a5) X bra .428 X.430 X cmp.l #0,-12(a5) X seq d0 X and.l #1,d0 X move.l d0,-12(a5) X bra .428 X.431 X cmp.l #0,-12(a5) X sgt d0 X and.l #1,d0 X move.l d0,-12(a5) X bra .428 X.432 X move.l -12(a5),d0 X and.l #1,d0 X cmp.l #0,d0 X seq d0 X and.l #1,d0 X move.l d0,-12(a5) X bra .428 X.433 X move.l -12(a5),d0 X and.l #1,d0 X cmp.l #0,d0 X sne d0 X and.l #1,d0 X move.l d0,-12(a5) X bra .428 X.434 X jsr _badiop X bra .428 X.435 X.427 X sub.l #43,d0 X beq .431 X sub.l #2,d0 X beq .429 X sub.l #24,d0 X beq .432 X sub.l #10,d0 X beq .433 X sub.l #11,d0 X beq .430 X bra .434 X.428 X bra .437 X.422 X tst.l -16(a5) X beq .438 X btst.b #0,-13(a5) X beq .439 X move.l #3,d0 X bra .440 X.439 X move.l -16(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.440 X cmp.l #4,d0 X bne .438 X move.l -16(a5),a0 X fmove.d 2(a0),fp0 X fmove.d fp0,-8(a5) X move.l 8(a5),d0 X bra .441 X.443 X fmove.d -8(a5),fp0 X fcmp.d #"$0000000000000000",fp0 X fslt d0 X and.l #1,d0 X move.l d0,-12(a5) X bra .442 X.444 X fmove.d -8(a5),fp0 X fcmp.d #"$0000000000000000",fp0 X fseq d0 X and.l #1,d0 X move.l d0,-12(a5) X bra .442 X.445 X fmove.d -8(a5),fp0 X fcmp.d #"$0000000000000000",fp0 X fsgt d0 X and.l #1,d0 X move.l d0,-12(a5) X bra .442 X.446 X jsr _badfop X bra .442 X.441 X sub.l #43,d0 X beq .445 X sub.l #2,d0 X beq .443 X sub.l #45,d0 X beq .444 X bra .446 X.442 X bra .447 X.438 X move.l -16(a5),-(sp) X jsr _xlbadtype X add.w #4,sp X.447 X.437 X tst.l -12(a5) X beq .448 X move.l _true,d0 X bra .449 X.448 X move.l #0,d0 X.449 X.450 X fmovem.x (sp)+,.418 X movem.l (sp)+,.417 X unlk a5 X rts X.416 equ -16 X.417 reg d2/d3/a6 X.418 freg X public _xlss X_xlss: X link a5,#.451 X movem.l .452,-(sp) X fmovem.x .453,-(sp) X pea 60 X jsr _compare X add.w #4,sp X.454 X fmovem.x (sp)+,.453 X movem.l (sp)+,.452 X unlk a5 X rts X.451 equ 0 X.452 reg d2/d3/a6 X.453 freg X public _xleq X_xleq: X link a5,#.455 X movem.l .456,-(sp) X fmovem.x .457,-(sp) X pea 76 X jsr _compare X add.w #4,sp X.458 X fmovem.x (sp)+,.457 X movem.l (sp)+,.456 X unlk a5 X rts X.455 equ 0 X.456 reg d2/d3/a6 X.457 freg X public _xeql X_xeql: X link a5,#.459 X movem.l .460,-(sp) X fmovem.x .461,-(sp) X pea 61 X jsr _compare X add.w #4,sp X.462 X fmovem.x (sp)+,.461 X movem.l (sp)+,.460 X unlk a5 X rts X.459 equ 0 X.460 reg d2/d3/a6 X.461 freg X public _xgeq X_xgeq: X link a5,#.463 X movem.l .464,-(sp) X fmovem.x .465,-(sp) X pea 71 X jsr _compare X add.w #4,sp X.466 X fmovem.x (sp)+,.465 X movem.l (sp)+,.464 X unlk a5 X rts X.463 equ 0 X.464 reg d2/d3/a6 X.465 freg X public _xgtr X_xgtr: X link a5,#.467 X movem.l .468,-(sp) X fmovem.x .469,-(sp) X pea 62 X jsr _compare X add.w #4,sp X.470 X fmovem.x (sp)+,.469 X movem.l (sp)+,.468 X unlk a5 X rts X.467 equ 0 X.468 reg d2/d3/a6 X.469 freg X_compare: X link a5,#.471 X movem.l .472,-(sp) X fmovem.x .473,-(sp) X tst.l _xlargc X ble .474 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .475 X.474 X jsr _xltoofew X.475 X move.l d0,-40(a5) X tst.l -40(a5) X beq .476 X btst.b #0,-37(a5) X beq .477 X move.l #3,d0 X bra .478 X.477 X move.l -40(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.478 X cmp.l #3,d0 X bne .476 X btst.b #0,-37(a5) X beq .479 X move.l -40(a5),d0 X asr.l #1,d0 X bra .480 X.479 X move.l -40(a5),a0 X move.l 2(a0),d0 X.480 X move.l d0,-8(a5) X move.l #73,-44(a5) X bra .481 X.476 X tst.l -40(a5) X beq .482 X btst.b #0,-37(a5) X beq .483 X move.l #3,d0 X bra .484 X.483 X move.l -40(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.484 X cmp.l #4,d0 X bne .482 X move.l -40(a5),a0 X fmove.d 2(a0),fp0 X fmove.d fp0,-28(a5) X move.l #70,-44(a5) X bra .485 X.482 X move.l -40(a5),-(sp) X jsr _xlbadtype X add.w #4,sp X.485 X.481 X move.l #1,-4(a5) X bra .489 X.488 X tst.l _xlargc X ble .490 X sub.l #1,_xlargc X move.l _xlsp,a0 X add.l #4,_xlsp X move.l (a0),d0 X bra .491 X.490 X jsr _xltoofew X.491 X move.l d0,-40(a5) X tst.l -40(a5) X beq .492 X btst.b #0,-37(a5) X beq .493 X move.l #3,d0 X bra .494 X.493 X move.l -40(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.494 X cmp.l #3,d0 X bne .492 X move.l -44(a5),d0 X bra .495 X.497 X btst.b #0,-37(a5) X beq .498 X move.l -40(a5),d0 X asr.l #1,d0 X bra .499 X.498 X move.l -40(a5),a0 X move.l 2(a0),d0 X.499 X move.l d0,-12(a5) X bra .496 X.500 X btst.b #0,-37(a5) X beq .501 X move.l -40(a5),d0 X asr.l #1,d0 X bra .502 X.501 X move.l -40(a5),a0 X move.l 2(a0),d0 X.502 X fmove.l d0,fp0 X fmove.d fp0,-36(a5) X bra .496 X.495 X sub.l #70,d0 X beq .500 X sub.l #3,d0 X beq .497 X.496 X bra .503 X.492 X tst.l -40(a5) X beq .504 X btst.b #0,-37(a5) X beq .505 X move.l #3,d0 X bra .506 X.505 X move.l -40(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.506 X cmp.l #4,d0 X bne .504 X move.l -44(a5),d0 X bra .507 X.509 X fmove.l -8(a5),fp0 X fmove.d fp0,-28(a5) X move.l -40(a5),a0 X fmove.d 2(a0),fp0 X fmove.d fp0,-36(a5) X move.l #70,-44(a5) X bra .508 X.510 X move.l -40(a5),a0 X fmove.d 2(a0),fp0 X fmove.d fp0,-36(a5) X bra .508 X.507 X sub.l #70,d0 X beq .510 X sub.l #3,d0 X beq .509 X.508 X bra .511 X.504 X move.l -40(a5),-(sp) X jsr _xlbadtype X add.w #4,sp X.511 X.503 X move.l -44(a5),d0 X bra .512 X.514 X move.l -8(a5),d0 X sub.l -12(a5),d0 X move.l d0,-4(a5) X move.l 8(a5),d0 X bra .515 X.517 X cmp.l #0,-4(a5) X slt d0 X and.l #1,d0 X move.l d0,-4(a5) X bra .516 X.518 X cmp.l #0,-4(a5) X sle d0 X and.l #1,d0 X move.l d0,-4(a5) X bra .516 X.519 X cmp.l #0,-4(a5) X seq d0 X and.l #1,d0 X move.l d0,-4(a5) X bra .516 X.520 X cmp.l #0,-4(a5) X sge d0 X and.l #1,d0 X move.l d0,-4(a5) X bra .516 X.521 X cmp.l #0,-4(a5) X sgt d0 X and.l #1,d0 X move.l d0,-4(a5) X bra .516 X.522 X.515 X sub.l #60,d0 X beq .517 X sub.l #1,d0 X beq .519 X sub.l #1,d0 X beq .521 X sub.l #9,d0 X beq .520 X sub.l #5,d0 X beq .518 X.516 X bra .513 X.524 X fmove.d -28(a5),fp0 X fsub.d -36(a5),fp0 X fmove.d fp0,-20(a5) X move.l 8(a5),d0 X bra .525 X.527 X fmove.d -20(a5),fp0 X fcmp.d #"$0000000000000000",fp0 X fslt d0 X and.l #1,d0 X move.l d0,-4(a5) X bra .526 X.528 X fmove.d -20(a5),fp0 X fcmp.d #"$0000000000000000",fp0 X fsle d0 X and.l #1,d0 X move.l d0,-4(a5) X bra .526 X.529 X fmove.d -20(a5),fp0 X fcmp.d #"$0000000000000000",fp0 X fseq d0 X and.l #1,d0 X move.l d0,-4(a5) X bra .526 X.530 X fmove.d -20(a5),fp0 X fcmp.d #"$0000000000000000",fp0 X fsge d0 X and.l #1,d0 X move.l d0,-4(a5) X bra .526 X.531 X fmove.d -20(a5),fp0 X fcmp.d #"$0000000000000000",fp0 X fsgt d0 X and.l #1,d0 X move.l d0,-4(a5) X bra .526 X.532 X.525 X sub.l #60,d0 X beq .527 X sub.l #1,d0 X beq .529 X sub.l #1,d0 X beq .531 X sub.l #9,d0 X beq .530 X sub.l #5,d0 X beq .528 X.526 X bra .513 X.512 X sub.l #70,d0 X beq .524 X sub.l #3,d0 X beq .514 X.513 X.486 X move.l -12(a5),-8(a5) X fmove.d -36(a5),fp0 X fmove.d fp0,-28(a5) X.489 X tst.l -4(a5) X beq .534 X tst.l _xlargc X bgt .488 X.534 X.487 X tst.l -4(a5) X beq .535 X move.l _true,d0 X bra .536 X.535 X move.l #0,d0 X.536 X.537 X fmovem.x (sp)+,.473 X movem.l (sp)+,.472 X unlk a5 X rts X.471 equ -44 X.472 reg d2/d3/a6 X.473 freg X public _toflotype X_toflotype: X link a5,#.538 X movem.l .539,-(sp) X fmovem.x .540,-(sp) X btst.b #0,11(a5) X beq .541 X move.l #3,d0 X bra .542 X.541 X move.l 8(a5),a0 X move.b (a0),d0 X ext.w d0 X ext.l d0 X.542 X bra .543 X.545 X btst.b #0,11(a5) X beq .546 X move.l 8(a5),d0 X asr.l #1,d0 X bra .547 X.546 X move.l 8(a5),a0 X move.l 2(a0),d0 X.547 X fmove.l d0,fp0 X.548 X fmovem.x (sp)+,.540 X movem.l (sp)+,.539 X unlk a5 X rts X.549 X move.l 8(a5),a0 X fmove.d 2(a0),fp0 X bra .548 X.543 X sub.l #3,d0 X beq .545 X sub.l #1,d0 X beq .549 X.544 X bra .548 X.538 equ 0 X.539 reg d2/d3/a6 X.540 freg X public _checkizero X_checkizero: X link a5,#.550 X movem.l .551,-(sp) X fmovem.x .552,-(sp) X tst.l 8(a5) X bne .553 X pea .1+0 X jsr _xlfail X add.w #4,sp X.553 X.554 X fmovem.x (sp)+,.552 X movem.l (sp)+,.551 X unlk a5 X rts X.550 equ 0 X.551 reg d2/d3/a6 X.552 freg X.1 X dc.b 100,105,118,105,115,105,111,110,32,98,121,32,122,101,114 X dc.b 111,0 X ds 0 X public _checkineg X_checkineg: X link a5,#.556 X movem.l .557,-(sp) X fmovem.x .558,-(sp) X tst.l 8(a5) X bge .559 X pea .555+0 X jsr _xlfail X add.w #4,sp X.559 X.560 X fmovem.x (sp)+,.558 X movem.l (sp)+,.557 X unlk a5 X rts X.556 equ 0 X.557 reg d2/d3/a6 X.558 freg X.555 X dc.b 115,113,117,97,114,101,32,114,111,111,116,32,111,102,32 X dc.b 97,32,110,101,103,97,116,105,118,101,32,110,117,109,98 X dc.b 101,114,0 X ds 0 X public _checkfzero X_checkfzero: X link a5,#.562 X movem.l .563,-(sp) X fmovem.x .564,-(sp) X fmove.d 8(a5),fp0 X fbne .565 X pea .561+0 X jsr _xlfail X add.w #4,sp X.565 X.566 X fmovem.x (sp)+,.564 X movem.l (sp)+,.563 X unlk a5 X rts X.562 equ 0 X.563 reg d2/d3/a6 X.564 freg X.561 X dc.b 100,105,118,105,115,105,111,110,32,98,121,32,122,101,114 X dc.b 111,0 X ds 0 X public _checkfneg X_checkfneg: X link a5,#.568 X movem.l .569,-(sp) X fmovem.x .570,-(sp) X fmove.d 8(a5),fp0 X fbge .571 X pea .567+0 X jsr _xlfail X add.w #4,sp X.571 X.572 X fmovem.x (sp)+,.570 X movem.l (sp)+,.569 X unlk a5 X rts X.568 equ 0 X.569 reg d2/d3/a6 X.570 freg X.567 X dc.b 115,113,117,97,114,101,32,114,111,111,116,32,111,102,32 X dc.b 97,32,110,101,103,97,116,105,118,101,32,110,117,109,98 X dc.b 101,114,0 X ds 0 X_badiop: X link a5,#.574 X movem.l .575,-(sp) X fmovem.x .576,-(sp) X pea .573+0 X jsr _xlfail X add.w #4,sp X.577 X fmovem.x (sp)+,.576 X movem.l (sp)+,.575 X unlk a5 X rts X.574 equ 0 X.575 reg d2/d3/a6 X.576 freg X.573 X dc.b 98,97,100,32,105,110,116,101,103,101,114,32,111,112,101 X dc.b 114,97,116,105,111,110,0 X ds 0 X_badfop: X link a5,#.579 X movem.l .580,-(sp) X fmovem.x .581,-(sp) X pea .578+0 X jsr _xlfail X add.w #4,sp X.582 X fmovem.x (sp)+,.581 X movem.l (sp)+,.580 X unlk a5 X rts X.579 equ 0 X.580 reg d2/d3/a6 X.581 freg X.578 X dc.b 98,97,100,32,102,108,111,97,116,105,110,103,32,112,111 X dc.b 105,110,116,32,111,112,101,114,97,116,105,111,110,0 X ds 0 X public _xlfail X public _osrand X public _xltoomany X public _pow X public _ceil X public _floor X public _atan2 X public _xlbadtype X public _xltoofew X public _cvflonum X public _cvfixnum X public .begin X dseg X public _true X public _xlargc X public _xlsp X end END_OF_FILE if test 36236 -ne `wc -c <'Src/xsmath881.s'`; then echo shar: \"'Src/xsmath881.s'\" unpacked with wrong size! fi # end of 'Src/xsmath881.s' fi echo shar: End of archive 6 $of 7$. cp /dev/null ark6isdone MISSING="" for I in 1 2 3 4 5 6 7 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 7 archives. rm -f ark[1-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0 -- Mail submissions (sources or binaries) to <amiga@cs.odu.edu>. Mail comments to the moderator at <amiga-request@cs.odu.edu>. Post requests for sources, and general discussion to comp.sys.amiga.